''Programm Iteration 1: 
'Eine Linie springt zwischen zwei Kurven hin und her und 
''nähert sich einem Schnittpunkt in Sprüngen = Iteration:    
    
screen 19,8 
          
dim as single x,y,p,i,a,b,w 


''1. Kurve: Teil einer quadratischen Funktion: 
FOR x = -20 TO 20 STEP .01 
  y = x ^ 2 
  PSET (x * 15 + 400,y + 100),10 
NEXT x 


''2. Kurve: schräge Gerade: 
p = 650 

FOR x = 100 TO 700 STEP 1 
  y = p - x 
  PSET (x,y),14 
NEXT x 


''Anfang erste sich nähernde Gerade: 
x = 230 
y = 500 

PSET (x,y),20 


''Damit es nicht zu schnell anfängt... 
sleep 500 


''20 mal (mal zweimal) soll der Algorithmus annähern: 
FOR i = 1 TO 20 

''Funktion y(x) umgedreht in x(y); etwas unübersichtlich wegen der Maßstäbe, 
''der Schnittpunkt mit der nächsten Kurve und damit die nächste Gerade entsteht: 
  b = ((x - 400) / 15) ^ 2 + 100 
  a = x 
  
 ''Für buntere Grafik z.B. color i anstelle von color 15. 
  COLOR 15 
  
line  (x,y)-(a,b) 

 ''Damit man sieht, wie es abläuft; sleep zum weiteren Probieren löschen: 
 sleep (600-i*20) 
  
  x = a 
  y = b 

  b = y 
''Funktion y(x) umgedreht in x(y): 
  a = p - y 
  
  ''Für buntere Grafik z.B. color i anstelle von color 15. 
  COLOR 15 
  
 line (x,y)-(a,b) 
  
 ''Damit man sieht, wie es abläuft; sleep zum weiteren Probieren löschen: 
  sleep (600-i*20) 
  
  x = a 
  y = b 

NEXT i 

  sleep 
    
   END 0